home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / OPENMSG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-19  |  2.0 KB  |  90 lines
  1. unit Openmsg;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, MXMAILX;
  8.  
  9. {$I mailxdef.int}
  10.  
  11. type
  12.   TMsgForm = class(TForm)
  13.     Panel1: TPanel;
  14.     btnHide: TButton;
  15.     btnReply: TButton;
  16.     btnForward: TButton;
  17.     Label1: TLabel;
  18.     szSubject: TEdit;
  19.     Label2: TLabel;
  20.     szNoteText: TMemo;
  21.     Label3: TLabel;
  22.     szAttachList: TComboBox;
  23.     Label4: TLabel;
  24.     szOriginator: TEdit;
  25.     Label5: TLabel;
  26.     szMessageID: TEdit;
  27.     Label6: TLabel;
  28.     szTime: TEdit;
  29.     btnSend: TButton;
  30.     MXForm1: TMXForm;
  31.     MXMessage1: TMXMessage;
  32.     MXRecipient1: TMXRecipient;
  33.     MXFile1: TMXFile;
  34.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  35.     procedure btnHideClick(Sender: TObject);
  36.     procedure btnSendClick(Sender: TObject);
  37.     procedure btnReplyClick(Sender: TObject);
  38.     procedure btnForwardClick(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   MsgForm: TMsgForm;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TMsgForm.FormClose(Sender: TObject; var Action: TCloseAction);
  53. begin
  54.   Action := caFree;
  55.  
  56. end;
  57.  
  58. procedure TMsgForm.btnHideClick(Sender: TObject);
  59. begin
  60.      Close;
  61. end;
  62.  
  63. procedure TMsgForm.btnSendClick(Sender: TObject);
  64. begin
  65.     MXMessage1.Subject:= szSubject.Text;
  66.     MXMessage1.NoteText:= szNoteText.Lines;
  67.     MXMessage1.Action:= ACTION_SENDMSG;
  68.     If MXMessage1.ErrorNum <> 0 Then
  69.     begin
  70.         Application.MessageBox('Error Sending Message',
  71.                                'Mail X Demo for DELPHI',
  72.                                MB_OK);       
  73.     end;
  74. end;
  75.  
  76. procedure TMsgForm.btnReplyClick(Sender: TObject);
  77. begin
  78.     MXMessage1.Action:= ACTION_REPLY;
  79.     MXMessage1.Action:= ACTION_SENDMSG;
  80. end;
  81.  
  82. procedure TMsgForm.btnForwardClick(Sender: TObject);
  83. begin
  84.     MXMessage1.NoteText:= szNoteText.Lines;
  85.     MXMessage1.Action:= ACTION_FORWARD;
  86.     MXMessage1.Action:= ACTION_SENDMSG;
  87. end;
  88.  
  89. end.
  90.